home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / Megaroids ][ ••••• / Megaroids ][ еееее.rsrc / CODE_1.txt < prev    next >
Text File  |  1988-12-20  |  23KB  |  440 lines
  1. # near model CODE resource
  2. # jump table entries: 0-9 (10 of them)
  3. 00000000  0000 0000                ori.b      D0, 0x0
  4. 00000004  0000 0072                ori.b      D0, 0x72 /* 'r' */
  5. export_0:
  6. 00000008  4278 0A4A                clr.w      [0x00000A4A /* FPState */]
  7. 0000000C  9DCE                     sub.l      A6, A6
  8. 0000000E  2C3C 5354 5253           move.l     D6, 0x53545253 /* 'STRS' */
  9. 00000014  4EBA 032A                jsr        [PC + 0x32A /* 00000340 */]
  10. 00000018  41FA FFE6                lea.l      A0, [PC - 0x1A /* 00000000, value 0x0, cstring "" */]
  11. 0000001C  208C                     move.l     [A0], A4
  12. 0000001E  4EBA 0098                jsr        [PC + 0x98 /* 000000B8 */]
  13. 00000022  4EBA 029A                jsr        [PC + 0x29A /* 000002BE */]
  14. 00000026  4267                     clr.w      -[A7]
  15. 00000028  4879 0000 FFFF           push.l     0xFFFF
  16. 0000002E  486F 0004                pea.l      [A7 + 0x4]
  17. 00000032  4857                     pea.l      [A7]
  18. 00000034  3F3C 0001                move.w     -[A7], 0x1
  19. 00000038  223A FFCA                move.l     D1, [PC - 0x36 /* 00000004, value 0x72 'r', cstring "" */]
  20. 0000003C  4EB5 1000                jsr        [A5 + D1.w]
  21. 00000040  4EFA 0070                jmp        [PC + 0x70 /* 000000B2 */]
  22. 00000044  48E7 FFF8                movem.l    -[A7], D0,D1,D2,D3,D4,D5,D6,D7,A0,A1,A2,A3,A4
  23. 00000048  3E2F 003C                move.w     D7, [A7 + 0x3C]
  24. 0000004C  50F8 0A5E                st         [0x00000A5E /* ResLoad */]
  25. 00000050  598F                     subq.l     A7, 4
  26. 00000052  2F3C 434F 4445           move.l     -[A7], 0x434F4445 /* 'CODE' */
  27. 00000058  3F07                     move.w     -[A7], D7
  28. 0000005A  A9A0                     syscall    GetResource
  29. 0000005C  201F                     move.l     D0, [A7]+
  30. 0000005E  673A                     beq        +0x3C /* 0000009A */
  31. 00000060  2640                     movea.l    A3, D0
  32. 00000062  2453                     movea.l    A2, [A3]
  33. 00000064  082A 0000 0001           btst.b     [A2 + 0x1], 0x0
  34. 0000006A  6724                     beq        +0x26 /* 00000090 */
  35. 0000006C  4A12                     tst.b      [A2]
  36. 0000006E  6A20                     bpl        +0x22 /* 00000090 */
  37. 00000070  4EBA 036E                jsr        [PC + 0x36E /* 000003E0 */]
  38. 00000074  A029                     syscall    HLock
  39. 00000076  598F                     subq.l     A7, 4
  40. 00000078  2F3C 4352 454C           move.l     -[A7], 0x4352454C /* 'CREL' */
  41. 0000007E  3F07                     move.w     -[A7], D7
  42. 00000080  A9A0                     syscall    GetResource
  43. 00000082  4EBA 036E                jsr        [PC + 0x36E /* 000003F2 */]
  44. 00000086  201F                     move.l     D0, [A7]+
  45. 00000088  6710                     beq        +0x12 /* 0000009A */
  46. 0000008A  2040                     movea.l    A0, D0
  47. 0000008C  4EBA 0076                jsr        [PC + 0x76 /* 00000104 */]
  48. label00000090:
  49. 00000090  0252 7FFE                andi.w     [A2], 0x7FFE
  50. 00000094  4CDF 1FFF                movem.l    D0,D1,D2,D3,D4,D5,D6,D7,A0,A1,A2,A3,A4, [A7]+
  51. 00000098  4E75                     rts
  52. label0000009A:
  53. 0000009A  700F                     moveq.l    D0, 0x0F
  54. 0000009C  A9C9                     syscall    SysError
  55. 0000009E  2F08                     move.l     -[A7], A0
  56. 000000A0  4EBA 024C                jsr        [PC + 0x24C /* 000002EE */]
  57. 000000A4  205F                     movea.l    A0, [A7]+
  58. 000000A6  A9F2                     syscall    Launch/LaunchApplication
  59. 000000A8  2F08                     move.l     -[A7], A0
  60. 000000AA  4EBA 0242                jsr        [PC + 0x242 /* 000002EE */]
  61. 000000AE  205F                     movea.l    A0, [A7]+
  62. 000000B0  A9F3                     syscall    Chain
  63. label000000B2:
  64. 000000B2  4EBA 023A                jsr        [PC + 0x23A /* 000002EE */]
  65. 000000B6  A9F4                     syscall    ExitToShell
  66. fn000000B8:
  67. 000000B8  598F                     subq.l     A7, 4
  68. 000000BA  2F3C 5A45 524F           move.l     -[A7], 0x5A45524F /* 'ZERO' */
  69. 000000C0  4267                     clr.w      -[A7]
  70. 000000C2  A9A0                     syscall    GetResource
  71. 000000C4  2457                     movea.l    A2, [A7]
  72. 000000C6  598F                     subq.l     A7, 4
  73. 000000C8  2F3C 4441 5441           move.l     -[A7], 0x44415441 /* 'DATA' */
  74. 000000CE  4267                     clr.w      -[A7]
  75. 000000D0  A9A0                     syscall    GetResource
  76. 000000D2  2057                     movea.l    A0, [A7]
  77. 000000D4  2050                     movea.l    A0, [A0]
  78. 000000D6  2278 0908                movea.l    A1, [0x00000908 /* CurStackBase */]
  79. 000000DA  2452                     movea.l    A2, [A2]
  80. 000000DC  600E                     bra        +0x10 /* 000000EC */
  81. label000000DE:
  82. 000000DE  32D8                     move.w     [A1]+, [A0]+
  83. 000000E0  660A                     bne        +0xC /* 000000EC */
  84. 000000E2  321A                     move.w     D1, [A2]+
  85. 000000E4  6002                     bra        +0x4 /* 000000E8 */
  86. label000000E6:
  87. 000000E6  4219                     clr.b      [A1]+
  88. label000000E8:
  89. 000000E8  51C9 FFFC                dbf        D1, -0x6 /* 000000E6 */
  90. label000000EC:
  91. 000000EC  BBC9                     cmpa.l     A5, A1
  92. 000000EE  66EE                     bne        -0x10 /* 000000DE */
  93. 000000F0  A9A3                     syscall    ReleaseResource
  94. 000000F2  A9A3                     syscall    ReleaseResource
  95. 000000F4  598F                     subq.l     A7, 4
  96. 000000F6  2F3C 4452 454C           move.l     -[A7], 0x4452454C /* 'DREL' */
  97. 000000FC  4267                     clr.w      -[A7]
  98. 000000FE  A9A0                     syscall    GetResource
  99. 00000100  205F                     movea.l    A0, [A7]+
  100. 00000102  244D                     movea.l    A2, A5
  101. fn00000104:
  102. 00000104  A025                     syscall    GetHandleSize
  103. 00000106  2F08                     move.l     -[A7], A0
  104. 00000108  2050                     movea.l    A0, [A0]
  105. 0000010A  E240                     asr        D0.w, 1
  106. 0000010C  6012                     bra        +0x14 /* 00000120 */
  107. label0000010E:
  108. 0000010E  240D                     move.l     D2, A5
  109. 00000110  3218                     move.w     D1, [A0]+
  110. 00000112  0881 0000                bclr.b     D1, 0x0
  111. 00000116  6704                     beq        +0x6 /* 0000011C */
  112. 00000118  243A FEE6                move.l     D2, [PC - 0x11A /* 00000000, value 0x0, cstring "" */]
  113. label0000011C:
  114. 0000011C  D5B2 1000                add.l      [A2 + D1.w], D2
  115. label00000120:
  116. 00000120  51C8 FFEC                dbf        D0, -0x16 /* 0000010E */
  117. 00000124  A9A3                     syscall    ReleaseResource
  118. 00000126  4E75                     rts
  119. export_1:
  120. 00000128  205F                     movea.l    A0, [A7]+
  121. 0000012A  3218                     move.w     D1, [A0]+
  122. label0000012C:
  123. 0000012C  3418                     move.w     D2, [A0]+
  124. 0000012E  B058                     cmp.w      D0, [A0]+
  125. 00000130  57C9 FFFA                dbeq       D1, -0x8 /* 0000012C */
  126. 00000134  4A42                     tst.w      D2
  127. label00000136:
  128. 00000136  67FE                     beq        -0x0 /* 00000136 */
  129. 00000138  4EF0 20FC                jmp        [A0 + D2.w - 0x4]
  130. export_2:
  131. 0000013C  205F                     movea.l    A0, [A7]+
  132. 0000013E  3218                     move.w     D1, [A0]+
  133. label00000140:
  134. 00000140  3418                     move.w     D2, [A0]+
  135. 00000142  B098                     cmp.l      D0, [A0]+
  136. 00000144  57C9 FFFA                dbeq       D1, -0x8 /* 00000140 */
  137. 00000148  4A42                     tst.w      D2
  138. label0000014A:
  139. 0000014A  67FE                     beq        -0x0 /* 0000014A */
  140. 0000014C  4EF0 20FA                jmp        [A0 + D2.w - 0x6]
  141. export_3:
  142. 00000150  205F                     movea.l    A0, [A7]+
  143. 00000152  3218                     move.w     D1, [A0]+
  144. 00000154  3418                     move.w     D2, [A0]+
  145. 00000156  B042                     cmp.w      D0, D2
  146. 00000158  6E0A                     bgt        +0xC /* 00000164 */
  147. 0000015A  9041                     sub.w      D0, D1
  148. 0000015C  6D06                     blt        +0x8 /* 00000164 */
  149. 0000015E  D040                     add.w      D0, D0
  150. 00000160  41F0 0002                lea.l      A0, [A0 + D0.w + 0x2]
  151. label00000164:
  152. 00000164  3010                     move.w     D0, [A0]
  153. label00000166:
  154. 00000166  67FE                     beq        -0x0 /* 00000166 */
  155. 00000168  4EF0 0000                jmp        [A0 + D0.w]
  156. export_4:
  157. 0000016C  202F 0004                move.l     D0, [A7 + 0x4]
  158. 00000170  2F41 0004                move.l     [A7 + 0x4], D1
  159. 00000174  222F 0008                move.l     D1, [A7 + 0x8]
  160. 00000178  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  161. 0000017C  48E7 3C00                movem.l    -[A7], D2,D3,D4,D5
  162. 00000180  2400                     move.l     D2, D0
  163. 00000182  2601                     move.l     D3, D1
  164. 00000184  4842                     swap.w     D2
  165. 00000186  C4C3                     mulu.w     D2, D3
  166. 00000188  2800                     move.l     D4, D0
  167. 0000018A  2A01                     move.l     D5, D1
  168. 0000018C  4845                     swap.w     D5
  169. 0000018E  C8C5                     mulu.w     D4, D5
  170. 00000190  D444                     add.w      D2, D4
  171. 00000192  4842                     swap.w     D2
  172. 00000194  4242                     clr.w      D2
  173. 00000196  C0C1                     mulu.w     D0, D1
  174. 00000198  D082                     add.l      D0, D2
  175. 0000019A  4CDF 003C                movem.l    D2,D3,D4,D5, [A7]+
  176. 0000019E  221F                     move.l     D1, [A7]+
  177. 000001A0  4E75                     rts
  178. export_5:
  179. 000001A2  202F 0004                move.l     D0, [A7 + 0x4]
  180. 000001A6  2F41 0004                move.l     [A7 + 0x4], D1
  181. 000001AA  222F 0008                move.l     D1, [A7 + 0x8]
  182. 000001AE  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  183. 000001B2  48E7 3100                movem.l    -[A7], D2,D3,D7
  184. 000001B6  4EBA 009C                jsr        [PC + 0x9C /* 00000254 */]
  185. 000001BA  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  186. 000001BE  221F                     move.l     D1, [A7]+
  187. 000001C0  4E75                     rts
  188. export_6:
  189. 000001C2  202F 0004                move.l     D0, [A7 + 0x4]
  190. 000001C6  2F41 0004                move.l     [A7 + 0x4], D1
  191. 000001CA  222F 0008                move.l     D1, [A7 + 0x8]
  192. 000001CE  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  193. 000001D2  48E7 3100                movem.l    -[A7], D2,D3,D7
  194. 000001D6  4EBA 007C                jsr        [PC + 0x7C /* 00000254 */]
  195. 000001DA  2001                     move.l     D0, D1
  196. 000001DC  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  197. 000001E0  221F                     move.l     D1, [A7]+
  198. 000001E2  4E75                     rts
  199. export_7:
  200. 000001E4  202F 0004                move.l     D0, [A7 + 0x4]
  201. 000001E8  2F41 0004                move.l     [A7 + 0x4], D1
  202. 000001EC  222F 0008                move.l     D1, [A7 + 0x8]
  203. 000001F0  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  204. 000001F4  48E7 3100                movem.l    -[A7], D2,D3,D7
  205. 000001F8  4EBA 002C                jsr        [PC + 0x2C /* 00000226 */]
  206. 000001FC  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  207. 00000200  221F                     move.l     D1, [A7]+
  208. 00000202  4E75                     rts
  209. export_8:
  210. 00000204  202F 0004                move.l     D0, [A7 + 0x4]
  211. 00000208  2F41 0004                move.l     [A7 + 0x4], D1
  212. 0000020C  222F 0008                move.l     D1, [A7 + 0x8]
  213. 00000210  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  214. 00000214  48E7 3100                movem.l    -[A7], D2,D3,D7
  215. 00000218  4EBA 000C                jsr        [PC + 0xC /* 00000226 */]
  216. 0000021C  2001                     move.l     D0, D1
  217. 0000021E  4CDF 008C                movem.l    D2,D3,D7, [A7]+
  218. 00000222  221F                     move.l     D1, [A7]+
  219. 00000224  4E75                     rts
  220. fn00000226:
  221. 00000226  4A80                     tst.l      D0
  222. 00000228  6A1C                     bpl        +0x1E /* 00000246 */
  223. 0000022A  4A81                     tst.l      D1
  224. 0000022C  6A0C                     bpl        +0xE /* 0000023A */
  225. 0000022E  4480                     neg.l      D0
  226. 00000230  4481                     neg.l      D1
  227. 00000232  4EBA 0020                jsr        [PC + 0x20 /* 00000254 */]
  228. 00000236  4481                     neg.l      D1
  229. 00000238  4E75                     rts
  230. label0000023A:
  231. 0000023A  4480                     neg.l      D0
  232. 0000023C  4EBA 0016                jsr        [PC + 0x16 /* 00000254 */]
  233. 00000240  4480                     neg.l      D0
  234. 00000242  4481                     neg.l      D1
  235. 00000244  4E75                     rts
  236. label00000246:
  237. 00000246  4A81                     tst.l      D1
  238. 00000248  6A0A                     bpl        +0xC /* 00000254 */
  239. 0000024A  4481                     neg.l      D1
  240. 0000024C  4EBA 0006                jsr        [PC + 0x6 /* 00000254 */]
  241. 00000250  4480                     neg.l      D0
  242. 00000252  4E75                     rts
  243. fn00000254:
  244. 00000254  2E3C 0000 FFFF           move.l     D7, 0xFFFF
  245. 0000025A  B280                     cmp.l      D1, D0
  246. 0000025C  6306                     bls        +0x8 /* 00000264 */
  247. 0000025E  2200                     move.l     D1, D0
  248. 00000260  7000                     moveq.l    D0, 0x00
  249. 00000262  4E75                     rts
  250. label00000264:
  251. 00000264  B087                     cmp.l      D0, D7
  252. 00000266  620C                     bhi        +0xE /* 00000274 */
  253. 00000268  80C1                     divu.w     D0, D1
  254. 0000026A  4840                     swap.w     D0
  255. 0000026C  3200                     move.w     D1, D0
  256. 0000026E  4240                     clr.w      D0
  257. 00000270  4840                     swap.w     D0
  258. 00000272  4E75                     rts
  259. label00000274:
  260. 00000274  B287                     cmp.l      D1, D7
  261. 00000276  621A                     bhi        +0x1C /* 00000292 */
  262. 00000278  2E00                     move.l     D7, D0
  263. 0000027A  4240                     clr.w      D0
  264. 0000027C  4840                     swap.w     D0
  265. 0000027E  80C1                     divu.w     D0, D1
  266. 00000280  4840                     swap.w     D0
  267. 00000282  4847                     swap.w     D7
  268. 00000284  3E00                     move.w     D7, D0
  269. 00000286  4847                     swap.w     D7
  270. 00000288  8EC1                     divu.w     D7, D1
  271. 0000028A  3007                     move.w     D0, D7
  272. 0000028C  4847                     swap.w     D7
  273. 0000028E  3207                     move.w     D1, D7
  274. 00000290  4E75                     rts
  275. label00000292:
  276. 00000292  2400                     move.l     D2, D0
  277. 00000294  2601                     move.l     D3, D1
  278. label00000296:
  279. 00000296  E288                     lsr        D0, 1
  280. 00000298  E289                     lsr        D1, 1
  281. 0000029A  B287                     cmp.l      D1, D7
  282. 0000029C  62F8                     bhi        -0x6 /* 00000296 */
  283. 0000029E  80C1                     divu.w     D0, D1
  284. 000002A0  C087                     and.l      D0, D7
  285. label000002A2:
  286. 000002A2  3203                     move.w     D1, D3
  287. 000002A4  C2C0                     mulu.w     D1, D0
  288. 000002A6  2E03                     move.l     D7, D3
  289. 000002A8  4847                     swap.w     D7
  290. 000002AA  CEC0                     mulu.w     D7, D0
  291. 000002AC  4847                     swap.w     D7
  292. 000002AE  D287                     add.l      D1, D7
  293. 000002B0  6508                     bcs        +0xA /* 000002BA */
  294. 000002B2  9282                     sub.l      D1, D2
  295. 000002B4  6204                     bhi        +0x6 /* 000002BA */
  296. 000002B6  4481                     neg.l      D1
  297. 000002B8  4E75                     rts
  298. label000002BA:
  299. 000002BA  5340                     subq.w     D0, 1
  300. 000002BC  60E4                     bra        -0x1A /* 000002A2 */
  301. fn000002BE:
  302. 000002BE  323C A9F0                move.w     D1, 0xA9F0
  303. 000002C2  43FA FD80                lea.l      A1, [PC - 0x280 /* 00000044, value 0x48E7FFF8 */]
  304. 000002C6  4EBA 004A                jsr        [PC + 0x4A /* 00000312 */]
  305. 000002CA  323C A9F2                move.w     D1, 0xA9F2
  306. 000002CE  43FA FDCE                lea.l      A1, [PC - 0x232 /* 0000009E, value 0x2F084EBA */]
  307. 000002D2  4EBA 003E                jsr        [PC + 0x3E /* 00000312 */]
  308. 000002D6  323C A9F3                move.w     D1, 0xA9F3
  309. 000002DA  43FA FDCC                lea.l      A1, [PC - 0x234 /* 000000A8, value 0x2F084EBA */]
  310. 000002DE  4EBA 0032                jsr        [PC + 0x32 /* 00000312 */]
  311. 000002E2  323C A9F4                move.w     D1, 0xA9F4
  312. 000002E6  43FA FDCA                lea.l      A1, [PC - 0x236 /* 000000B2, value 0x4EBA023A */]
  313. 000002EA  4EFA 0026                jmp        [PC + 0x26 /* 00000312 */]
  314. fn000002EE:
  315. 000002EE  4EBA 00E0                jsr        [PC + 0xE0 /* 000003D0 */]
  316. 000002F2  323C A9F0                move.w     D1, 0xA9F0
  317. 000002F6  4EBA 0036                jsr        [PC + 0x36 /* 0000032E */]
  318. 000002FA  323C A9F2                move.w     D1, 0xA9F2
  319. 000002FE  4EBA 002E                jsr        [PC + 0x2E /* 0000032E */]
  320. 00000302  323C A9F3                move.w     D1, 0xA9F3
  321. 00000306  4EBA 0026                jsr        [PC + 0x26 /* 0000032E */]
  322. 0000030A  323C A9F4                move.w     D1, 0xA9F4
  323. 0000030E  4EFA 001E                jmp        [PC + 0x1E /* 0000032E */]
  324. fn00000312:
  325. 00000312  3001                     move.w     D0, D1
  326. 00000314  A146                     syscall    GetTrapAddress, flags=1
  327. 00000316  2448                     movea.l    A2, A0
  328. 00000318  700C                     moveq.l    D0, 0x0C
  329. 0000031A  A51E                     syscall    NewPtrSys, flags=5
  330. 0000031C  3001                     move.w     D0, D1
  331. 0000031E  A047                     syscall    SetTrapAddress
  332. 00000320  30FC 4EB9                move.w     [A0]+, 0x4EB9
  333. 00000324  20C9                     move.l     [A0]+, A1
  334. 00000326  30FC 4EF9                move.w     [A0]+, 0x4EF9
  335. 0000032A  20CA                     move.l     [A0]+, A2
  336. 0000032C  4E75                     rts
  337. fn0000032E:
  338. 0000032E  3001                     move.w     D0, D1
  339. 00000330  A146                     syscall    GetTrapAddress, flags=1
  340. 00000332  2268 0008                movea.l    A1, [A0 + 0x8]
  341. 00000336  A01F                     syscall    DisposPtr/DisposePtr
  342. 00000338  3001                     move.w     D0, D1
  343. 0000033A  2049                     movea.l    A0, A1
  344. 0000033C  A047                     syscall    SetTrapAddress
  345. 0000033E  4E75                     rts
  346. fn00000340:
  347. 00000340  4238 0A5E                clr.b      [0x00000A5E /* ResLoad */]
  348. 00000344  598F                     subq.l     A7, 4
  349. 00000346  2F06                     move.l     -[A7], D6
  350. 00000348  4267                     clr.w      -[A7]
  351. 0000034A  A9A0                     syscall    GetResource
  352. 0000034C  265F                     movea.l    A3, [A7]+
  353. 0000034E  598F                     subq.l     A7, 4
  354. 00000350  2F0B                     move.l     -[A7], A3
  355. 00000352  A9A5                     syscall    GetResourceSizeOnDisk/SizeResource/SizeRsrc
  356. 00000354  261F                     move.l     D3, [A7]+
  357. 00000356  204B                     movea.l    A0, A3
  358. 00000358  2803                     move.l     D4, D3
  359. 0000035A  3E3C 0081                move.w     D7, 0x81
  360. 0000035E  6012                     bra        +0x14 /* 00000372 */
  361. label00000360:
  362. 00000360  0684 0000 7FFE           addi.l     D4, 0x7FFE
  363. 00000366  598F                     subq.l     A7, 4
  364. 00000368  2F06                     move.l     -[A7], D6
  365. 0000036A  3F07                     move.w     -[A7], D7
  366. 0000036C  5247                     addq.w     D7, 1
  367. 0000036E  A9A0                     syscall    GetResource
  368. 00000370  205F                     movea.l    A0, [A7]+
  369. label00000372:
  370. 00000372  558F                     subq.l     A7, 2
  371. 00000374  2F08                     move.l     -[A7], A0
  372. 00000376  A9A6                     syscall    GetResAttrs
  373. 00000378  301F                     move.w     D0, [A7]+
  374. 0000037A  0800 0005                btst.b     D0, 0x5
  375. 0000037E  66E0                     bne        -0x1E /* 00000360 */
  376. 00000380  50F8 0A5E                st         [0x00000A5E /* ResLoad */]
  377. 00000384  2004                     move.l     D0, D4
  378. 00000386  A11E                     syscall    NewPtr, flags=1
  379. 00000388  2848                     movea.l    A4, A0
  380. 0000038A  2F0B                     move.l     -[A7], A3
  381. 0000038C  A9A2                     syscall    LoadResource
  382. 0000038E  204B                     movea.l    A0, A3
  383. 00000390  2003                     move.l     D0, D3
  384. 00000392  3A07                     move.w     D5, D7
  385. 00000394  3E3C 0081                move.w     D7, 0x81
  386. 00000398  9A47                     sub.w      D5, D7
  387. 0000039A  6012                     bra        +0x14 /* 000003AE */
  388. label0000039C:
  389. 0000039C  598F                     subq.l     A7, 4
  390. 0000039E  2F06                     move.l     -[A7], D6
  391. 000003A0  3F07                     move.w     -[A7], D7
  392. 000003A2  5247                     addq.w     D7, 1
  393. 000003A4  A9A0                     syscall    GetResource
  394. 000003A6  205F                     movea.l    A0, [A7]+
  395. 000003A8  203C 0000 7FFE           move.l     D0, 0x7FFE
  396. label000003AE:
  397. 000003AE  2F08                     move.l     -[A7], A0
  398. 000003B0  2050                     movea.l    A0, [A0]
  399. 000003B2  224C                     movea.l    A1, A4
  400. 000003B4  D9C0                     add.l      A4, D0
  401. 000003B6  A02E                     syscall    BlockMove/BlockMoveData
  402. 000003B8  A9A3                     syscall    ReleaseResource
  403. 000003BA  51CD FFE0                dbf        D5, -0x22 /* 0000039C */
  404. 000003BE  99C4                     sub.l      A4, D4
  405. 000003C0  4E75                     rts
  406. 000003C2  0000 0000                ori.b      D0, 0x0
  407. export_9:
  408. 000003C6  41FA FFFA                lea.l      A0, [PC - 0x6 /* 000003C2, value 0x0, cstring "" */]
  409. 000003CA  20AF 0004                move.l     [A0], [A7 + 0x4]
  410. 000003CE  4E75                     rts
  411. fn000003D0:
  412. 000003D0  41FA FFF0                lea.l      A0, [PC - 0x10 /* 000003C2, value 0x0, cstring "" */]
  413. 000003D4  2010                     move.l     D0, [A0]
  414. 000003D6  6602                     bne        +0x4 /* 000003DA */
  415. 000003D8  4E75                     rts
  416. label000003DA:
  417. 000003DA  4290                     clr.l      [A0]
  418. 000003DC  2040                     movea.l    A0, D0
  419. 000003DE  4ED0                     jmp        [A0]
  420. fn000003E0:
  421. 000003E0  204B                     movea.l    A0, A3
  422. 000003E2  4A78 028E                tst.w      [0x0000028E /* ROM85 */]
  423. 000003E6  6A04                     bpl        +0x6 /* 000003EC */
  424. 000003E8  1613                     move.b     D3, [A3]
  425. 000003EA  4E75                     rts
  426. label000003EC:
  427. 000003EC  A069                     syscall    HGetState
  428. 000003EE  1600                     move.b     D3, D0
  429. 000003F0  4E75                     rts
  430. fn000003F2:
  431. 000003F2  4A78 028E                tst.w      [0x0000028E /* ROM85 */]
  432. 000003F6  6A04                     bpl        +0x6 /* 000003FC */
  433. 000003F8  1683                     move.b     [A3], D3
  434. 000003FA  4E75                     rts
  435. label000003FC:
  436. 000003FC  204B                     movea.l    A0, A3
  437. 000003FE  1003                     move.b     D0, D3
  438. 00000400  A06A                     syscall    HSetState
  439. 00000402  4E75                     rts
  440.